(cp-make-coding-system): Deal with

unencodable characters.

diff --git a/lisp/international/code-pages.el b/lisp/international/code-pages.el
index f7609659e438d588277ed484f97df01e878b2395..33975a6eb2f228be86d0fccb3837501f705efe48 100644 (file)
--- a/lisp/international/code-pages.el
+++ b/lisp/international/code-pages.el
@@ -185,6 +185,9 @@ corresponding args of `make-coding-system'.  If MNEMONIC isn't given,
             ((loop
               (read-multibyte-character r0 r1)
               (translate-character ,encoder r0 r1)
+              (if (r0 != ,(charset-id 'eight-bit-graphic))
+                  (if (r0 != ,(charset-id 'eight-bit-control))
+                    (r1 = ??)))
               (write-repeat r1)))))))
     `(let ((translation-table (cp-make-translation-table ,v))
           (codes (cp-valid-codes ,v)))